HA$PBExportHeader$w_tabtest.srw
forward
global type w_tabtest from window
end type
type uo_1 from u_cst_tabcontrol within w_tabtest
end type
type st_1 from statictext within w_tabtest
end type
type st_2 from statictext within w_tabtest
end type
end forward

global type w_tabtest from window
boolean visible = false
integer width = 2309
integer height = 1932
boolean titlebar = true
string menuname = "m_sheet"
long backcolor = 67108864
string icon = "AppIcon!"
uo_1 uo_1
st_1 st_1
st_2 st_2
end type
global w_tabtest w_tabtest

type prototypes
FUNCTION Long GetWindowLong(Long hWnd, Long offset) LIBRARY 'user32.dll' ALIAS FOR "GetWindowLongA"
end prototypes

type variables
u_cst_mle uo_mle_1
u_cst_mle uo_mle_2
u_cst_mle uo_mle_3
end variables

event resize;st_2.Resize(Width, Height)
end event

on w_tabtest.create
if this.MenuName = "m_sheet" then this.MenuID = create m_sheet
this.uo_1=create uo_1
this.st_1=create st_1
this.st_2=create st_2
this.Control[]={this.uo_1,&
this.st_1,&
this.st_2}
end on

on w_tabtest.destroy
if IsValid(MenuID) then destroy(MenuID)
destroy(this.uo_1)
destroy(this.st_1)
destroy(this.st_2)
end on

event open;

uo_1.of_AddImage('SQL!')
uo_1.of_AddImage('StaticText!')
uo_1.of_AddImage('Tab!')


uo_1.of_OpenTab(uo_mle_1, 'Tab One',1)
uo_1.of_OpenTab(uo_mle_2, 'Tab Two',2)
uo_1.of_OpenTab(uo_mle_3, 'Tab Three',3)

uo_1.of_SelectTab(1)
uo_1.of_SetStyle(uo_1.VS2005)

end event

type uo_1 from u_cst_tabcontrol within w_tabtest
integer x = 105
integer y = 348
integer width = 1495
integer taborder = 30
end type

on uo_1.destroy
call u_cst_tabcontrol::destroy
end on

type st_1 from statictext within w_tabtest
integer x = 160
integer y = 228
integer width = 681
integer height = 72
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "This is a window control"
boolean focusrectangle = false
end type

type st_2 from statictext within w_tabtest
integer width = 1266
integer height = 920
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 15780518
boolean focusrectangle = false
end type

